Microsoft Interactive CD Sampler/Microsoft Interactive CD Sampler.iso/DEMOS/C_Automp/AUTOTP/TRIPPLAN.DIR/Scripts_3_setLoop.ls

Text File | 1996-07-25 | 298 b | 25 lines

property doLoop

on new me
  set doLoop to #f
  return me
end

on setLoop me
  case doLoop of
    #y:
      loopMe()
    #n:
      set doLoop to #f
      go(marker(0))
  end case
end

on loopMe
  repeat while doLoop = #y
    if the mouseDown then
      set doLoop to #f
    end if
  end repeat
end